home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 December / MACPOWER-1997-12.ISO.7z / MACPOWER-1997-12.ISO / MacPowerオリジナル / Edutainment World / チャンプジム for DEMO / DIR / mitt.dir / 00077_Script_77 < prev    next >
Text File  |  1997-09-29  |  644b  |  25 lines
  1. on exitFrame
  2.   global gMONME,SND,gCHARSqus,Qlist
  3.   global gameList,REgameList
  4.   global SETTEI
  5.   
  6.   if GetAt(SETTEI ,1) = 0 and (getAt (REgameList,getAt(Qlist,gMONME))) = 1 then
  7.     set gMONME = gMONME+1
  8.     go to the frame
  9.     abort
  10.   end if
  11.   
  12.   global gCount
  13.   set gCount = 0
  14.   
  15.   set the foreColor of field "ans" to 0
  16.   put "" into field "ans"
  17.   
  18.   put getAt(gameList,getAt(Qlist,gMONME)*3) into field "qus"
  19.   put the number of chars in field "qus" into gCHARSqus
  20.   
  21.   
  22.   if getAT(SETTEI,2) = 1 then set the volume of sound 2 to 100
  23.   set SND = (getAt(gameList,getAt(Qlist,gMONME)*3-1)) & ".aif"
  24.   puppetSound SND
  25. end